Change a category of one Japanese character.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index b5d627e2dc691ef8ecaf5344cceaf262317b32fe..c7ec38e0d302049ea3df46e57fa5658846f2103f 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -284,7 +284,8 @@
   (while (< row 127)
     (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
     (setq row (1+ row))))
-(let ((chars '(?\e$B!<\e(B ?\e$B!+\e(B ?\e$B!,\e(B)))
+(modify-category-entry ?\e$B!<\e(B ?K)
+(let ((chars '(?\e$B!+\e(B ?\e$B!,\e(B)))
   (while chars
     (modify-category-entry (car chars) ?K)
     (modify-category-entry (car chars) ?H)